

## COMPLETE
variables <- list(
            RiotStudy=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),	
		    Synchrony=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
          	   German=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
         Technion2016=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
              MBA2012=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
            XvalStudy=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
 T1T2CrowdflowerJoint=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
                Kiwon=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
 CMUGenderStatusStudy=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
		 Technion2015=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
		 Technion2017=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
              MBA2015=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
              MBA2014=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
          	      USC=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),	
          	 FortSill=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),	
T1T2CrowdflowerRound1=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
        T1T2CMUSO2013=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
	             Bots=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
        T1T2CMUSO2015=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
	     TilburgStudy=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
          Hopkins2015=c("UnscrambleWords1", "BrainstormObject1", "TypingText1"),
	      Hopkins2016=c("UnscrambleWords1", "BrainstormObject1", "TypingText1")
)

